Forecasting ensembles and combinations

Rob J Hyndman

15 November 2022

What is a forecast?

Where is Melbourne?

Australian monthly café turnover

Mean (or point) forecast

Interval forecast

Quantile forecasts

Forecasting competitions

Galton (1907)

According to the democratic principle of “one vote one value”, the middlemost estimate expresses the vox populi.

Newbold and Granger (1974)

“The combined forecasting methods seem to me to be non-starters . . . Is a combined method not in danger of falling between two stools?” Maurice Priestley

Makridakis and Hibon (1982)

This was the first genuine forecasting competition

1001 series from demography, industry, economics.
Annual, quarterly, monthly data
Anyone could submit forecasts
Highly controversial at the time.
Showed combinations out-performed individual methods

Makridakis and Hibon (1982)

Conclusions

Sophisticated methods do not necessarily provide more accurate forecasts than simpler ones.
The relative ranking of the various methods varies according to the accuracy measure being used.
The accuracy of combinations is usually better than individual methods.
The accuracy of methods depends on the length of the forecasting horizon involved.

Makridakis and Hibon (1982)

Consequences

Researchers started to:

take combination method seriously;
consider how to automate forecasting methods;
study what methods give the best forecasts;
be aware of the dangers of over-fitting;
treat forecasting as a different problem from time series analysis.

M4 competition

January – May 2018
100,000 time series: yearly, quarterly, monthly, weekly, daily, hourly.
Point forecast and prediction intervals assessed.
Code must be public
248 registrations, 50 submissions.

Winning methods

Hybrid of Recurrent Neural Network and Exponential Smoothing models
Forecast combination using xgboost to find weights

The theory of combination forecasts

Evaluating quantile forecasts

\begin{align*} f_{p,t} &= \text{quantile forecast with prob. $p$ at time $t$.}\\ y_{t} &= \text{observation at time $t$} \end{align*}

Quantile score

Q_{p,t} = \begin{cases} 2(1 - p) \big|y_t - f_{p,t}\big|, & \text{if $y_{t} < f_{p,t}$}\\ 2p \big|y_{t} - f_{p,t}\big|, & \text{if $y_{t} \ge f_{p,t}$} \end{cases}

Low Q_{p,t} is good
Multiplier of 2 often omitted, but useful for interpretation
Q_{p,t} like absolute error (weighted to account for likely exceedance)
Average Q_{p,t} over p = CRPS (Continuous Rank Probability Score)

auscafe

# A tsibble: 168 x 2 [1M]
       date turnover
      <mth>    <dbl>
 1 2006 Jan    1914.
 2 2006 Feb    1750 
 3 2006 Mar    1984.
 4 2006 Apr    1967.
 5 2006 May    2005.
 6 2006 Jun    1944.
 7 2006 Jul    2019.
 8 2006 Aug    2043.
 9 2006 Sep    2039.
10 2006 Oct    2113.
# … with 158 more rows

Evaluating quantile forecasts

auscafe %>%
  filter(year(date) <= 2018)

# A tsibble: 156 x 2 [1M]
       date turnover
      <mth>    <dbl>
 1 2006 Jan    1914.
 2 2006 Feb    1750 
 3 2006 Mar    1984.
 4 2006 Apr    1967.
 5 2006 May    2005.
 6 2006 Jun    1944.
 7 2006 Jul    2019.
 8 2006 Aug    2043.
 9 2006 Sep    2039.
10 2006 Oct    2113.
# … with 146 more rows

Evaluating quantile forecasts

auscafe %>%
  filter(year(date) <= 2018) %>%
  model(
    ETS = ETS(turnover),
    ARIMA = ARIMA(turnover ~
                  pdq(d=1) + PDQ(D=1))
  )

# A mable: 1 x 2
           ETS                     ARIMA
       <model>                   <model>
1 <ETS(M,A,M)> <ARIMA(0,1,1)(0,1,1)[12]>

Evaluating quantile forecasts

auscafe %>%
  filter(year(date) <= 2018) %>%
  model(
    ETS = ETS(turnover),
    ARIMA = ARIMA(turnover ~
                  pdq(d=1) + PDQ(D=1))
  ) %>%
  forecast(h = "1 year")

# A fable: 24 x 4 [1M]
# Key:     .model [2]
   .model     date       turnover .mean
   <chr>     <mth>         <dist> <dbl>
 1 ETS    2019 Jan  N(3839, 4272) 3839.
 2 ETS    2019 Feb  N(3514, 4587) 3514.
 3 ETS    2019 Mar  N(3889, 6892) 3889.
 4 ETS    2019 Apr  N(3809, 7868) 3809.
 5 ETS    2019 May  N(3856, 9385) 3856.
 6 ETS    2019 Jun N(3738, 10098) 3738.
 7 ETS    2019 Jul N(3951, 12748) 3951.
 8 ETS    2019 Aug N(4008, 14670) 4008.
 9 ETS    2019 Sep N(3968, 15941) 3968.
10 ETS    2019 Oct N(4100, 18726) 4100.
# … with 14 more rows

Evaluating quantile forecasts

auscafe %>%
  filter(year(date) <= 2018) %>%
  model(
    ETS = ETS(turnover),
    ARIMA = ARIMA(turnover ~
                  pdq(d=1) + PDQ(D=1))
  ) %>%
  forecast(h = "1 year") %>%
  accuracy(data = auscafe,
    measures = list(crps=CRPS, rmse=RMSE)
  ) %>%
  arrange(crps)

# A tibble: 2 × 4
  .model .type  crps  rmse
  <chr>  <chr> <dbl> <dbl>
1 ETS    Test   31.3  41.1
2 ARIMA  Test   32.9  51.5

Ensemble forecasting

Ensemble forecasting: mix the forecast distributions from multiple models.

“All models are wrong, but some are useful” (George Box, 1976)
Allows diverse models to be included, while reducing impact of any specific model.
Allows uncertainty of model selection to be incorporated.

Ensemble forecasting

auscafe %>%
  filter(year(date) <= 2018) %>%
  model(ETS = ETS(turnover),
        ARIMA = ARIMA(turnover ~
                    pdq(d=1) + PDQ(D=1))
  ) %>%
  forecast(h = "1 year")

# A fable: 24 x 4 [1M]
# Key:     .model [2]
   .model     date       turnover .mean
   <chr>     <mth>         <dist> <dbl>
 1 ETS    2019 Jan  N(3839, 4272) 3839.
 2 ETS    2019 Feb  N(3514, 4587) 3514.
 3 ETS    2019 Mar  N(3889, 6892) 3889.
 4 ETS    2019 Apr  N(3809, 7868) 3809.
 5 ETS    2019 May  N(3856, 9385) 3856.
 6 ETS    2019 Jun N(3738, 10098) 3738.
 7 ETS    2019 Jul N(3951, 12748) 3951.
 8 ETS    2019 Aug N(4008, 14670) 4008.
 9 ETS    2019 Sep N(3968, 15941) 3968.
10 ETS    2019 Oct N(4100, 18726) 4100.
# … with 14 more rows

Ensemble forecasting

auscafe %>%
  filter(year(date) <= 2018) %>%
  model(ETS = ETS(turnover),
        ARIMA = ARIMA(turnover ~
                    pdq(d=1) + PDQ(D=1))
  ) %>%
  forecast(h = "1 year") %>%
  summarise(
    turnover = dist_mixture(
                turnover[1], turnover[2],
                weights=c(0.5,0.5))
  ) %>%
  mutate(.model = "ENSEMBLE")

# A fable: 12 x 3 [1M]
       date     turnover .model  
      <mth>       <dist> <chr>   
 1 2019 Jan mixture(n=2) ENSEMBLE
 2 2019 Feb mixture(n=2) ENSEMBLE
 3 2019 Mar mixture(n=2) ENSEMBLE
 4 2019 Apr mixture(n=2) ENSEMBLE
 5 2019 May mixture(n=2) ENSEMBLE
 6 2019 Jun mixture(n=2) ENSEMBLE
 7 2019 Jul mixture(n=2) ENSEMBLE
 8 2019 Aug mixture(n=2) ENSEMBLE
 9 2019 Sep mixture(n=2) ENSEMBLE
10 2019 Oct mixture(n=2) ENSEMBLE
11 2019 Nov mixture(n=2) ENSEMBLE
12 2019 Dec mixture(n=2) ENSEMBLE

Ensemble forecasting

auscafe %>%
  filter(year(date) <= 2018) %>%
  model(ETS = ETS(turnover),
        ARIMA = ARIMA(turnover ~
                    pdq(d=1) + PDQ(D=1))
  ) %>%
  forecast(h = "1 year") %>%
  summarise(
    turnover = dist_mixture(
                turnover[1], turnover[2],
                weights=c(0.5,0.5))
  ) %>%
  mutate(.model = "ENSEMBLE") %>%
  accuracy(
    data = auscafe,
    measures = list(crps=CRPS, rmse=RMSE)
  )

# A tibble: 1 × 4
  .model   .type  crps  rmse
  <chr>    <chr> <dbl> <dbl>
1 ENSEMBLE Test   31.7  45.1

Combination forecasting

Combination forecasting: take weighted average of forecasts from multiple models.

Often a simple average is used.
Reduces uncertainty associated with selecting a particular model.
Combination forecasting usually improves point forecast accuracy.
Mean forecast identical to that from corresponding weighted ensemble.
Quantile forecasts need to account for correlations between forecast errors from component models.

Combination forecasting

auscafe %>%
  filter(year(date) <= 2018) %>%
  model(
    ETS = ETS(turnover),
    ARIMA = ARIMA(turnover ~
                  pdq(d=1) + PDQ(D=1))
  )

# A mable: 1 x 2
           ETS                     ARIMA
       <model>                   <model>
1 <ETS(M,A,M)> <ARIMA(0,1,1)(0,1,1)[12]>

Combination forecasting

auscafe %>%
  filter(year(date) <= 2018) %>%
  model(
    ETS = ETS(turnover),
    ARIMA = ARIMA(turnover ~
                  pdq(d=1) + PDQ(D=1))
  ) %>%
  mutate(COMB = (ETS + ARIMA)/2)

# A mable: 1 x 3
           ETS                     ARIMA
       <model>                   <model>
1 <ETS(M,A,M)> <ARIMA(0,1,1)(0,1,1)[12]>
# … with 1 more variable: COMB <model>

Combination forecasting

auscafe %>%
  filter(year(date) <= 2018) %>%
  model(
    ETS = ETS(turnover),
    ARIMA = ARIMA(turnover ~
                  pdq(d=1) + PDQ(D=1))
  ) %>%
  mutate(COMB = (ETS + ARIMA)/2) %>%
  forecast(h = "1 year")

# A fable: 36 x 4 [1M]
# Key:     .model [3]
   .model     date       turnover .mean
   <chr>     <mth>         <dist> <dbl>
 1 ETS    2019 Jan  N(3839, 4272) 3839.
 2 ETS    2019 Feb  N(3514, 4587) 3514.
 3 ETS    2019 Mar  N(3889, 6892) 3889.
 4 ETS    2019 Apr  N(3809, 7868) 3809.
 5 ETS    2019 May  N(3856, 9385) 3856.
 6 ETS    2019 Jun N(3738, 10098) 3738.
 7 ETS    2019 Jul N(3951, 12748) 3951.
 8 ETS    2019 Aug N(4008, 14670) 4008.
 9 ETS    2019 Sep N(3968, 15941) 3968.
10 ETS    2019 Oct N(4100, 18726) 4100.
# … with 26 more rows

Combination forecasting

auscafe %>%
  filter(year(date) <= 2018) %>%
  model(
    ETS = ETS(turnover),
    ARIMA = ARIMA(turnover ~
                  pdq(d=1) + PDQ(D=1))
  ) %>%
  mutate(COMB = (ETS + ARIMA)/2) %>%
  forecast(h = "1 year") %>%
  accuracy(
    data = auscafe,
    measures = list(crps=CRPS, rmse=RMSE)
  ) %>%
  arrange(crps)

# A tibble: 3 × 4
  .model .type  crps  rmse
  <chr>  <chr> <dbl> <dbl>
1 COMB   Test   30.9  45.1
2 ETS    Test   31.3  41.1
3 ARIMA  Test   32.9  51.5

Combination vs ensemble forecasting

Forecasting COVID-19 cases

Australian Health Protection Principal Committee

Data sources

Case-level data of all positive COVID-19 tests: onset and detection times.
Daily population mobility data from Google, Apple & Facebook
Weekly non-household contact surveys
Weekly behavioural surveys
Daily case numbers from many countries and regions via the Johns Hopkins COVID-19 repository

Case numbers

Recent case numbers are uncertain and incomplete as date of onset is not known until symptoms show and a test is obtained.

A model ensemble

Model 1: SEEIIR (Uni Melbourne/Doherty Institute)

Stochastic compartmental model with time-varying effective reproduction number.

Model 2: Generative model (Uni Adelaide)

Simulation with three types of infectious individuals: imported, asymptomatic, symptomatic

Model 3: Global AR model (Monash)

Single model fitted to all Johns Hopkins data from countries and regions with sufficient data.
Series with obvious anomalies removed.

Forecasting ensemble

Forecasts obtained from a equally-weighted mixture distribution of the component forecasts.
Also known as “linear pooling”
Works best when individual models are over-confident and use different data sources.

Ensemble forecasts: Victoria

Forecastability factors

we have a good understanding of the factors that contribute to it, and can measure them.
there is lots of data available;
the future is somewhat similar to the past
the forecasts cannot affect the thing we are trying to forecast.

Assessing forecast uncertainty

Evaluating probabilistic forecasts

CRPS: Continuous Ranked Probability Score

Forecasting many series

cafe

# A tsibble: 1,344 x 3 [1M]
# Key:       state [8]
       date state turnover
      <mth> <chr>    <dbl>
 1 2006 Jan ACT       21.7
 2 2006 Feb ACT       21.9
 3 2006 Mar ACT       24.9
 4 2006 Apr ACT       24.8
 5 2006 May ACT       27  
 6 2006 Jun ACT       24.5
 7 2006 Jul ACT       24  
 8 2006 Aug ACT       26.1
 9 2006 Sep ACT       26.2
10 2006 Oct ACT       33.7
# … with 1,334 more rows

Forecasting many series

cafe %>%
  filter(year(date) <= 2018)

# A tsibble: 1,248 x 3 [1M]
# Key:       state [8]
       date state turnover
      <mth> <chr>    <dbl>
 1 2006 Jan ACT       21.7
 2 2006 Feb ACT       21.9
 3 2006 Mar ACT       24.9
 4 2006 Apr ACT       24.8
 5 2006 May ACT       27  
 6 2006 Jun ACT       24.5
 7 2006 Jul ACT       24  
 8 2006 Aug ACT       26.1
 9 2006 Sep ACT       26.2
10 2006 Oct ACT       33.7
# … with 1,238 more rows

Forecasting many series

cafe %>%
  filter(year(date) <= 2018) %>%
  model(
    ETS = ETS(turnover),
    ARIMA = ARIMA(turnover ~
                  pdq(d=1) + PDQ(D=1)),
    SNAIVE = SNAIVE(turnover)
  ) %>%
  mutate(
    COMB = (ETS+ARIMA)/2
  )

# A mable: 8 x 5
# Key:     state [8]
  state           ETS
  <chr>       <model>
1 ACT   <ETS(M,Ad,M)>
2 NSW   <ETS(M,Ad,M)>
3 NT     <ETS(A,N,A)>
4 QLD   <ETS(M,Ad,M)>
5 SA    <ETS(M,Ad,M)>
6 TAS    <ETS(A,N,A)>
7 VIC   <ETS(M,Ad,M)>
8 WA    <ETS(M,Ad,M)>
# … with 3 more variables: ARIMA <model>,
#   SNAIVE <model>, COMB <model>

Forecasting many series

cafe %>%
  filter(year(date) <= 2018) %>%
  model(
    ETS = ETS(turnover),
    ARIMA = ARIMA(turnover ~
                  pdq(d=1) + PDQ(D=1)),
    SNAIVE = SNAIVE(turnover)
  ) %>%
  mutate(
    COMB = (ETS+ARIMA)/2
  ) %>%
  forecast(h = "1 year")

# A fable: 384 x 5 [1M]
# Key:     state, .model [32]
   state .model     date   turnover .mean
   <chr> <chr>     <mth>     <dist> <dbl>
 1 ACT   ETS    2019 Jan N(61, 9.6)  60.7
 2 ACT   ETS    2019 Feb  N(64, 15)  63.8
 3 ACT   ETS    2019 Mar  N(72, 26)  71.9
 4 ACT   ETS    2019 Apr  N(67, 28)  67.0
 5 ACT   ETS    2019 May  N(70, 36)  69.8
 6 ACT   ETS    2019 Jun  N(67, 39)  67.3
 7 ACT   ETS    2019 Jul  N(68, 46)  68.4
 8 ACT   ETS    2019 Aug  N(70, 53)  69.7
 9 ACT   ETS    2019 Sep  N(69, 57)  68.5
10 ACT   ETS    2019 Oct  N(70, 66)  70.2
# … with 374 more rows

Forecasting many series

cafe %>%
  filter(year(date) <= 2018) %>%
  model(
    ETS = ETS(turnover),
    ARIMA = ARIMA(turnover ~
                  pdq(d=1) + PDQ(D=1)),
    SNAIVE = SNAIVE(turnover)
  ) %>%
  mutate(
    COMB = (ETS+ARIMA)/2
  ) %>%
  forecast(h = "1 year") %>%
  accuracy(data = cafe,
    measures = list(crps=CRPS, rmse=RMSE)
  )

# A tibble: 32 × 5
   .model state .type  crps  rmse
   <chr>  <chr> <chr> <dbl> <dbl>
 1 ARIMA  ACT   Test   1.64  2.23
 2 ARIMA  NSW   Test  18.4  28.4 
 3 ARIMA  NT    Test   2.19  3.89
 4 ARIMA  QLD   Test  15.0  24.9 
 5 ARIMA  SA    Test   4.06  6.70
 6 ARIMA  TAS   Test   1.52  2.70
 7 ARIMA  VIC   Test  30.4  48.6 
 8 ARIMA  WA    Test   9.06 14.8 
 9 COMB   ACT   Test   2.02  3.31
10 COMB   NSW   Test  17.8  14.8 
# … with 22 more rows

Forecasting many series

cafe %>%
  filter(year(date) <= 2018) %>%
  model(
    ETS = ETS(turnover),
    ARIMA = ARIMA(turnover ~
                  pdq(d=1) + PDQ(D=1)),
    SNAIVE = SNAIVE(turnover)
  ) %>%
  mutate(
    COMB = (ETS+ARIMA)/2
  ) %>%
  forecast(h = "1 year") %>%
  accuracy(data = cafe,
    measures = list(ss=skill_score(CRPS))
  )

# A tibble: 32 × 4
   .model state .type     ss
   <chr>  <chr> <chr>  <dbl>
 1 ARIMA  ACT   Test   0.465
 2 ARIMA  NSW   Test   0.331
 3 ARIMA  NT    Test  -0.359
 4 ARIMA  QLD   Test   0.402
 5 ARIMA  SA    Test   0.213
 6 ARIMA  TAS   Test   0.438
 7 ARIMA  VIC   Test  -0.813
 8 ARIMA  WA    Test   0.117
 9 COMB   ACT   Test   0.340
10 COMB   NSW   Test   0.355
# … with 22 more rows

Forecasting many series

cafe %>%
  filter(year(date) <= 2018) %>%
  model(
    ETS = ETS(turnover),
    ARIMA = ARIMA(turnover ~
                  pdq(d=1) + PDQ(D=1)),
    SNAIVE = SNAIVE(turnover)
  ) %>%
  mutate(
    COMB = (ETS+ARIMA)/2
  ) %>%
  forecast(h = "1 year") %>%
  accuracy(data = cafe,
    measures = list(ss=skill_score(CRPS))
  ) %>%
  group_by(.model) %>%
  summarise(sspc = mean(ss) * 100)

# A tibble: 4 × 2
  .model  sspc
  <chr>  <dbl>
1 ARIMA   9.91
2 COMB   14.6 
3 ETS     6.23
4 SNAIVE  0

Skill score is relative to seasonal naive forecasts

For more information

Slides: robjhyndman.com/seminars/compstat2022

Find me at:

robjhyndman.com
@robjhyndman
@robjhyndman
rob.hyndman@monash.edu